home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / kowin / docprg / kowinp04.tvv < prev    next >
Text File  |  1997-06-06  |  10KB  |  318 lines
  1. 56,18
  2. 640,472
  3. 20
  4. 16
  5.  
  6. Ko-Window プログラミング、入門編 その２ 「アプリケーションらしいプログラム」
  7.  
  8.  
  9.  
  10.   今回はもうちょっと進んで、ファイル操作を含めたアプリケーションを作ってみま
  11. す。
  12.  
  13.  
  14. ● Ko-Window でのファイル操作
  15.  
  16.   Ko-Window でのファイル操作に特別なことはほとんど何もありません。C言語のラ
  17. イブラリをそのまま使ったファイルアクセスができます。
  18.  
  19.   これは、引数として与えたファイルのサイズを表示するプログラム例です。
  20. ----------------------------------------------------------------------------
  21. #include    <stdio.h>
  22. #include    <wlib.h>
  23.  
  24. int    WindowHeapSize= 1024*8;        /* <=== 重要！ */
  25. int    FileSize= 0;
  26. char    *FileName= NULL;
  27.  
  28. fSize( fname )    /* ファイルサイズを求める */
  29. char    *fname;
  30. {
  31.     FILE    *fp;
  32.     if( fname && (fp= fopen( fname, "rb" )) ){
  33.         int    size;
  34.         fseek( fp, 0, 2 );
  35.         size= ftell( fp );
  36.         fclose( fp );
  37.         return    size;
  38.     }
  39.     return    0;
  40. }
  41.  
  42. EventExec( wp, info )
  43. WindowID    wp;
  44. EventInfo    *info;
  45. {
  46.     DrawBuf    dbuf[10], *dp= dbuf;
  47.     char    str[80];
  48.     switch( info->option ){
  49.     case EventOpen:
  50.         FileSize= fSize( FileName );
  51.         WindowRedraw( wp );
  52.         return    TRUE;
  53.     case EventClose:
  54.         WindowClose( wp );
  55.         WindowConnectionClose();
  56.         return    TRUE;
  57.     case EventRedraw:
  58.         sprintf( str, "%d byte", FileSize );
  59.         DrawSetClear( dp++, 1 );
  60.         DrawSetSymbol( dp++, 4, 4, str, AttrDefault, 12 );
  61.         WindowDraw( wp, dbuf, dp-dbuf );
  62.         return    TRUE;
  63.     }
  64.     return    FALSE;
  65. }
  66.  
  67. WindowMain( argc, argv )
  68. char    **argv;
  69. {
  70.     int    x= 10, y= 10;
  71.     argc= AnalyzeArgs( argc, argv, &x, &y, NULL, NULL );
  72.     if( argc >= 2 )
  73.         FileName= *++argv;
  74.     WindowTitleOpen( x, y, 120, 50, NULL, "smpl", Close|Push, EventExec );
  75. }
  76. ----------------------------------------------------------------------------
  77.  
  78.   ファイル名からファイルサイズを得るにはさまざまな方法がありますが、ここでは
  79. あえて fopen(), fseek(), ftell() という方法を取ってみました。
  80.  
  81.  
  82.  
  83. ●ファイル操作と HEAP 領域
  84.  
  85.   さて、ファイル操作例のプログラムで注目して欲しいのは、4行目にある
  86.  WindowHeapSize の部分です。この変数は特別な意味を持ち、そのアプリケーション
  87. で使う HEAP 領域のメモリサイズを決定します。
  88.  
  89.   HEAP とは一言で行ってしまえば malloc() や calloc() でメモリ確保に使うため
  90. の領域です。
  91.  
  92.   だから malloc() を使うプログラムでは必ずこの WindowHeapSize に予め HEAP 領
  93. 域の大きさを byte 単位で入れておかなければなりません。逆に malloc() を使わな
  94. いプログラムでは、この変数を 0 にしておくとそのアプリケーションが消費するメ
  95. モリを低く押えることができるわけです。
  96.  
  97.   Command.win 上で ps コマンドを使うと、それぞれのプロセスでどれだけの HEAP
  98. を確保しているのかがわかるでしょう。
  99.  
  100.  
  101.   上の例のプログラムでは、malloc() は使ってないのに HEAP 領域を 8Kbyte も確
  102. 保しています。実は、fopen() 関数が内部で malloc() を呼び出しているからなの
  103. です。
  104.  
  105.   fopen() でファイルアクセスを行うプログラムでは、同時に開くファイルの個数に
  106. 応じて HEAP 領域を設定して置かないと、fopen() で常に失敗してしまうことになり
  107. ます。ここは Ko-Window でファイル操作をする場合に引っ掛かりやすいところなの
  108. で注意して下さい。
  109.  
  110.   XCv1-lib と XCv2-lib の場合は、「fopen() で同時に開く可能性のあるファイル
  111. の数×2Kbyte」くらいの HEAP 領域が必要になります。libc の場合は、×2Kbyte で
  112. はなく ×5Kbyte で計算して下さい。もちろん malloc() も使うならそれ以上必要で
  113. すから、かなり余裕を持って多目に設定しておいたほうが良いでしょう。
  114.  
  115.  
  116.   ちなみにこの WindowHeapSize という変数は、起動前に一度だけシステムで参照さ
  117. れるので、プログラム内で書き換えても意味がありません。必ずグローバル変数とし
  118. て初期値を定数で与えて下さい。
  119.  
  120.  
  121.  
  122. ●外部からファイル名を受け取る
  123.  
  124.   サンプルのプログラムでは、ファイル名は起動時にコマンドラインから与えなけれ
  125. ばなりませんでした。しかし一度起動した後はサイズを表示するだけであまり意味が
  126. ありません。
  127.  
  128.   そこで画像ローダー等でよくみかけるように、起動後も kf 等からファイル名を受
  129. け取れるようにしてみましょう。
  130.  
  131.   EventExec() を以下のように修正します。
  132. ----------------------------------------------------------------------------
  133. EventExec( wp, info )
  134. WindowID    wp;
  135. EventInfo    *info;
  136. {
  137.     DrawBuf    dbuf[10], *dp= dbuf;
  138.     char    str[80];
  139.     switch( info->option ){
  140.     case EventOpen:
  141.     /* ここで EventUser を受け取ることができるよ、という宣言をする */
  142.         WindowSetEventAttr( wp, EventAttrDefault|EventUserON );
  143.         FileSize= fSize( FileName );
  144.         WindowRedraw( wp );
  145.         return    TRUE;
  146.     case EventClose:
  147.         WindowClose( wp );
  148.         WindowConnectionClose();
  149.         return    TRUE;
  150.     case EventRedraw:
  151.         sprintf( str, "%d byte", FileSize );
  152.         DrawSetClear( dp++, 1 );
  153.         DrawSetSymbol( dp++, 4, 4, str, AttrDefault, 12 );
  154.         WindowDraw( wp, dbuf, dp-dbuf );
  155.         return    TRUE;
  156.     /* これが実際のファイル受け取り処理 */
  157.     case EventUser:
  158.         switch( info->ComData ){
  159.         case UserStrings: /* kf等からのファイル名受取 */
  160.             FileSize= fSize( *(char**)info->ComBuffer );
  161.             break;
  162.         case UserString:
  163.         case UserPaste:      /* 文字列も取り敢えずファイル名と見る */
  164.             FileSize= fSize( info->ComBuffer );
  165.         }
  166.         WindowRedraw( wp );
  167.         return    TRUE;
  168.     }
  169.     return    FALSE;
  170. }
  171. ----------------------------------------------------------------------------
  172.  
  173.   kf 等からファイル名を受け取った場合 UserEvent というイベントが発生します。
  174. その UserEvent の種類が info->ComData に数値として入ります。実際のデータは
  175.  info->ComBuffer というポインタにアドレスとして渡されます。
  176.  
  177.   ファイル名が渡される場合は、常に UserStrings というユーザーデータタイプが
  178. 使われます。これは複数の文字列(ファイル名)を意味します。
  179.  
  180.   例えば、file1.dat, file2.dat, file3.dat という 3 つのファイル名が送られて
  181. くる場合に info->ComBuffer の指している内容は以下のようになります。
  182.  
  183.     char    *fnamelist[4]= {
  184.             "file1.dat",
  185.             "file2.dat",
  186.             "file3.dat",
  187.             NULL
  188.         };
  189.     info->ComData= UserStrings;
  190.     info->ComBuffer= fnamelist;
  191.  
  192.   なお、上の例のプログラムでは、複数ファイル名が送られてきても処理できないの
  193. で、UserStrings で最初の1つ目のファイルしか見ていません。結構強引なポインタ
  194. 処理に見えますが、0個のファイル名は送られてこない(イベントにならない)という
  195. 暗黙のルールがあるためこれで大丈夫です。
  196.  
  197.   もう1つ、例のプログラムでは UserString と UserPaste というのも使っています。
  198. これらは共に、単一の文字列が送られてきたことを示すデータタイプです。kf では
  199. ファイル名が1つでも必ず UserStrings になりますが、これらも一応ファイル名とし
  200. て処理しておきます。こうすると、usend 等による外部からのコントロールが可能に
  201. なり(UserString)、また Clip & Paste で切り出してきたファイル名(UserPaste)でも
  202. 受理できるようになります。
  203.  
  204.  
  205.   ところで、説明では kf 等と書きましたが、このようにファイル名を他のウィンド
  206. ウへ送る機能を持ったシェル(ファインダー)には現在次のものがあります。
  207.  
  208. ・FINDER.win    Ko-Window の初期のシステムに付属していたものです
  209. ・kf.win    多彩なメニュー登録でそれ自体で何でもできる強力なシェルです
  210. ・shell.win    Macライクなアイコンでファイルを表現するタイプのものです
  211.  
  212. これらはすべてファイル名転送に同じインターフェースを持っています。
  213. (MicroFINDER というのもありましたが、構成や中身は FINDER.win と同じです)
  214.  
  215.  
  216.  
  217. ●外部にデータを送る
  218.  
  219.   外部からファイル名を受け取ったことで、かなりウィンドウアプリケーションらし
  220. くなりました。もっとも、ウィンドウ表示はそのままで寂しく、ぜんぜんそれらしく
  221. ないじゃないかという人がいるかもしれません。しかし、ウィンドウアプリケーショ
  222. ンによるメリットは、ハデなデコレーションではなく複数アプリケーションが同一の
  223. 場で自由な連係を保てることにあります。
  224.  
  225.   その連係動作をもっと強めるために今度は逆に、他のウィンドウにデータを送るこ
  226. とを考えてみます。
  227.  
  228.   EventExec() を再び以下のように修正します。
  229. ----------------------------------------------------------------------------
  230. EventExec( wp, info )
  231. WindowID    wp;
  232. EventInfo    *info;
  233. {
  234.     DrawBuf    dbuf[10], *dp= dbuf;
  235.     static char    str[80];    /* メモリに残すために static に変更 */
  236.     switch( info->option ){
  237.     case EventOpen:
  238.         WindowSetEventAttr( wp, EventAttrDefault|EventUserON );
  239.         FileSize= fSize( FileName );
  240.         WindowRedraw( wp );
  241.         return    TRUE;
  242.     case EventClose:
  243.         WindowClose( wp );
  244.         WindowConnectionClose();
  245.         return    TRUE;
  246.     case EventRedraw:
  247.         sprintf( str, "%d byte", FileSize );
  248.         DrawSetClear( dp++, 1 );
  249.         DrawSetSymbol( dp++, 4, 4, str, AttrDefault, 12 );
  250.         WindowDraw( wp, dbuf, dp-dbuf );
  251.         return    TRUE;
  252.     case EventUser:
  253.         switch( info->ComData ){
  254.         case UserStrings:
  255.             FileSize= fSize( *(char**)info->ComBuffer );
  256.             break;
  257.         case UserString:
  258.         case UserPaste:
  259.             FileSize= fSize( info->ComBuffer );
  260.         }
  261.         WindowRedraw( wp );
  262.         return    TRUE;
  263.     /* マウスの左ボタンでデータ転送をする */
  264.     case EventMouseSwitch:
  265.         if( info->LeftON ){
  266.             /* データ送信は、たったのこの１行だけ！ */
  267.             UserSendOperation( wp, info, UserString, str );
  268.             return    TRUE;
  269.         }
  270.         return    FALSE;
  271.     }
  272.     return    FALSE;
  273. }
  274. ----------------------------------------------------------------------------
  275.  
  276.   今度の変更では、マウス左ボタンの処理を加えました。ウィンドウ内に表示してい
  277. るファイルサイズの文字列を、マウスの左ボタンでドラッグして、Command.win やエ
  278. ディタ等へ簡単に転送できるようになります。
  279.  
  280.   処理している関数は UserSendOperation() これ１つきりです。ただしこの場合
  281.  corlib.a (もしくは libcor.a) が必要になりますので、コンパイル時にリンクして
  282. いない場合は追加しておいて下さい。
  283.  
  284.   このデータ転送がついたことで、急にアプリケーションとしての幅が広がりました。
  285. もっとも ファイル名 -> ファイルサイズ への変換くらいたいした事ないのかもしれ
  286. ませんが、これをベースにいろいろな応用を考えてみて下さい。
  287.  
  288.  
  289.   ここまでで結構プログラムが長く複雑になったように感じるかもしれませんが、よ
  290. くよくみると 80行足らずの C 言語のソースです。たったこれだけのコードで、この
  291. 入出力を含めた処理が記述できてしまうわけですから、Ko-Window ウィンドウプログ
  292. ラミングのシンプルさと分かりやすさを実感できるのではないでしょうか。
  293.  
  294.  
  295.  
  296. ●悩まないためにファイル操作へのヒント
  297.  
  298. 「Ko-Window でのファイル操作に特別なことはほとんど何もありません」と冒頭へ書
  299. きましたが、実はひとつだけ重要なことがあります。それは、
  300.  
  301.     自分でオープンしたファイルは責任を持って自分でクローズする
  302.  
  303. ということです。当たり前のようですが、Ko-Window のように多数のプログラムが共
  304. 存する世界では、極めて重要なことです。より詳しいことが file.doc に書いてある
  305. のでぜひ参照しておいて下さい。
  306.  
  307.  
  308. --
  309. 1994 9/01 初期公開版
  310. 1995 9/15 libc対応と変更のあった関数名の修正
  311.  
  312. 小笠原博之
  313. oga@dgw.yz.yamagata-u.ac.jp
  314. DenDenNET: DEN0006 COR.
  315.  
  316. 12,9,2
  317.   このウィンドウを閉じる C
  318.